val get_dims : Sdlvideo.surface -> int * int
val sdl_init : unit -> unit
val wait_key : unit -> unit
val show : Sdlvideo.surface -> Sdlvideo.surface -> unit
val elt : int * 'a list -> 'a
val parse_hauteur :
  ('a * 'b * 'c) list ->
  'd list -> ('d * 'a * 'b * 'c) list -> ('a * 'b * 'c) list * 'd list
val height_of_color : 'a * 'b * 'c -> ('a * 'b * 'c) list * int list -> int
val intersects :
  Sdlvideo.surface ->
  int -> (int * int * int * int) list -> (int * int * int) list
val doublons : 'a -> 'a list -> bool
val tri : 'a list -> 'a list
val cherche_ds_liste : int -> 'a -> 'a list -> int
val moy : int list -> int
val list_to_obj : 'a -> 'b -> (int * int * int) list -> unit
val main : string -> int -> (int * int * int * int) list -> unit -> unit
